MODULE ModParms
  
!!$ This module contains physical parameters. All parameter values are in cgs.
!!$ TODO: Combine modparms and modfuncs into modcommon
!!$ TODO: Remove parameters from pisco and put into modparms
!!$ Program conventions are from Nyhoff and Leestma, _Fortran 90 for Scientists and Engineers_, 1997
!!$
!!$ STH: Samuel Harrold
  
  IMPLICIT NONE

!!$ __________
!!$ source http://www.astro.wisc.edu/~dolan/constants.html
!!$
!!$ Physical Constants
!!$ c     = speed of light in a vacuum in cm s^-1
!!$ h     = Planck's constant in erg s
!!$ hbar  = h / 2*pi
!!$ G     = Gravitational constant in cm^3 g^-1 s^-2
!!$ e     = electron charge in esu
!!$ me    = mass of electron in g
!!$ mp    = mass of proton in g
!!$ mn    = mass of neutron in g
!!$ mH    = mass of hydrogen in g
!!$ amu   = atomic mass unit
!!$ NA    = Avogadro's number
!!$ k     = Boltzmann constant in erg K^-1
!!$ eV    = electron volt in erg
!!$ a     = radiation density constant in erg cm^-3 K^-4
!!$ sigma = Stefan-Boltzmann constant in erg cm^-2 K^-4 s^-1
!!$ alpha = fine structure constant
!!$ Ryd   = Rydberg constant in erg
  
  REAL, PARAMETER :: &
       c       = 2.99792458E+10, &
       h       = 6.6260755E-27, &
       hbar    = 1.05457266E-27, &
       G       = 6.67259E-08, &
       e       = 4.8032068E-10, &
       me      = 9.1093897E-28, &
       mp      = 1.6726231E-24, &
       mn      = 1.6749286E-24, &
       mH      = 1.6733E-24, &
       amu     = 1.6605402E-24, &
       NAvo    = 6.0221367E+23, &
       k       = 1.380658E-16, &
       eV      = 1.6021772E-12, &
       a       = 7.5646E-15, &
       sigmaSB = 5.67051E-05, &
       alpha   = 7.29735308E-03, &
       Ryd     = 2.1798741E-11
  
!!$ Astronomical Units and Data
!!$ AU   = astronomical unit in cm
!!$ pc   = parsec in cm
!!$ ly   = light year in cm
!!$ Msol =  solar mass in g
!!$ Rsol = solar radius in cm
!!$ Lsol = solar luminosity in erg s^-1
!!$ Tsol = effective solar temperature in K
  
  REAL, PARAMETER :: &
!!$       AU   = 1.496E+13, & ! already declared in pisco
       pc   = 3.086E+18, &
       ltyr = 9.463E+17, & ! ly already used in pisco
       Msol = 1.99E+33, &
       Rsol = 6.96E+10, &
       Lsol = 3.9E+33, &
       Tsol = 5.780E+03
  
!!$ __________
!!$ Other values with sources
!!$
!!$ TCMB = Temperature of the Cosmic Microwave Background in K
!!$ source http://en.wikipedia.org/wiki/Cosmic_microwave_background_radiation#Temperature
  
  REAL, PARAMETER :: TCMB = 2.725
  
END MODULE ModParms
